home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / e_to_l / fbuilder / delphi / fbmisc.int < prev    next >
Text File  |  1996-09-15  |  2KB  |  56 lines
  1. {*                               *}
  2. {* FormulaBuilder                *}
  3. {* Copyright 1995 Clayton Collie *}
  4. {* All Rights Reserved           *}
  5. {*                               *}
  6.  
  7. {* General support unit for FormulaBuilder *}
  8. Unit FBMisc;
  9. interface
  10. uses sysutils,classes;
  11. type
  12.   str255  = String[255];
  13.   charset = set of char;
  14.  
  15.  
  16. { Return the filename (no extenstion) }
  17. Function  JustFilename(fname : TFilename):TFilename;
  18.  
  19. { Perform a DOS-like wildcard match to see if Name matches the spec Card }
  20. function  WildCardMatch(const Name, Card: String): Boolean;
  21.  
  22. { Returns two halves of a string Source delimited by delim }
  23. Procedure SplitByDelim(source, delim : string;var a, b : string);
  24.  
  25. {Remove '[' ']' from string }
  26. Procedure StripFieldDelims(var source : str255);
  27.  
  28. { Safe PString Dereference }
  29. Function  getPtrString( Str : PString):String;
  30.  
  31. { calculate y to the X power }
  32. function  power(const y,x : double) : double;  
  33.  
  34. { Is Date Valid ? }
  35. Function  IsValidDate(const s : string):Boolean;
  36.  
  37. Function  ShortPrototype(const name   : string;
  38.                          Const prmstr : string;
  39.                          const maxparams,minparams:byte):string;
  40.  
  41. { Extract next token from a string (destructively) }
  42. Function  ExtractWord(Var Source : String;
  43.                       Delims     : CharSet;
  44.                       Caps       : Boolean;
  45.                       Del        : Boolean) : String;
  46.  
  47. { Return the minimum and maximum values respectively of a longint}
  48. Function Min(const a, b  : longint):longint;
  49. function max(const a , b : integer):longint;
  50.  
  51. { Returns the Roman Numeral Equivalent of Number }
  52. Function Romanize(number : word):String;
  53.  
  54. IMPLEMENTATION
  55. END.
  56.